home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / percnt.exe / PERCNTS2.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-01-21  |  3.8 KB  |  128 lines
  1. VERSION 4.00
  2. Begin VB.Form FrmPerCntSample2 
  3.    Appearance      =   0  'Flat
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "PerCnt - Simple Sample"
  6.    ClientHeight    =   3195
  7.    ClientLeft      =   2100
  8.    ClientTop       =   4545
  9.    ClientWidth     =   3510
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   0
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H00C0C0C0&
  20.    Height          =   3600
  21.    Left            =   2040
  22.    LinkTopic       =   "Form1"
  23.    MaxButton       =   0   'False
  24.    MinButton       =   0   'False
  25.    ScaleHeight     =   3195
  26.    ScaleWidth      =   3510
  27.    Top             =   4200
  28.    Width           =   3630
  29.    Begin VB.HScrollBar HScroll1 
  30.       Height          =   255
  31.       Left            =   240
  32.       Max             =   100
  33.       TabIndex        =   2
  34.       Top             =   2640
  35.       Width           =   3015
  36.    End
  37.    Begin VB.CommandButton Command2 
  38.       Appearance      =   0  'Flat
  39.       BackColor       =   &H80000005&
  40.       Caption         =   "Down"
  41.       Height          =   375
  42.       Left            =   1800
  43.       TabIndex        =   1
  44.       Top             =   2160
  45.       Width           =   1455
  46.    End
  47.    Begin VB.CommandButton Command1 
  48.       Appearance      =   0  'Flat
  49.       BackColor       =   &H80000005&
  50.       Caption         =   "Up"
  51.       Height          =   375
  52.       Left            =   240
  53.       TabIndex        =   0
  54.       Top             =   2160
  55.       Width           =   1455
  56.    End
  57.    Begin PercntLibCtl.Percnt Percent1 
  58.       Height          =   375
  59.       Left            =   240
  60.       TabIndex        =   4
  61.       Top             =   1560
  62.       Width           =   3015
  63.       _Version        =   196608
  64.       _ExtentX        =   5318
  65.       _ExtentY        =   661
  66.       _StockProps     =   77
  67.       ForeColor       =   -2147483630
  68.       Percent         =   0
  69.       BevelOuter      =   1
  70.       BevelBar        =   0
  71.       BevelWidthBar   =   1
  72.       TextBackColor   =   -2147483633
  73.       TextForeColor   =   -2147483630
  74.       BorderWidth     =   1
  75.       BevelInner      =   3
  76.       Caption         =   ""
  77.       BevelWidthOuter =   1
  78.       BevelWidthInner =   1
  79.    End
  80.    Begin VB.Label Label1 
  81.       Appearance      =   0  'Flat
  82.       BackColor       =   &H80000005&
  83.       BackStyle       =   0  'Transparent
  84.       Caption         =   $"percnts2.frx":0000
  85.       BeginProperty Font 
  86.          name            =   "MS Sans Serif"
  87.          charset         =   0
  88.          weight          =   400
  89.          size            =   9.75
  90.          underline       =   0   'False
  91.          italic          =   0   'False
  92.          strikethrough   =   0   'False
  93.       EndProperty
  94.       ForeColor       =   &H80000008&
  95.       Height          =   1215
  96.       Left            =   240
  97.       TabIndex        =   3
  98.       Top             =   240
  99.       Width           =   3015
  100.    End
  101. Attribute VB_Name = "FrmPerCntSample2"
  102. Attribute VB_Creatable = False
  103. Attribute VB_Exposed = False
  104. Private Sub Command1_Click()
  105.     Dim I, J As Integer
  106.     J = HScroll1.Value
  107.     For I = J To 100
  108.         DoEvents
  109.         Percent1.Percent = I
  110.         HScroll1.Value = I
  111.     Next I
  112. End Sub
  113. Private Sub Command2_Click()
  114.     Dim I, J As Integer
  115.     J = HScroll1.Value
  116.     For I = J To 0 Step -1
  117.         DoEvents
  118.         Percent1.Percent = I
  119.         HScroll1.Value = I
  120.     Next I
  121. End Sub
  122. Private Sub HScroll1_Change()
  123.     Percent1.Percent = HScroll1.Value
  124. End Sub
  125. Private Sub HScroll1_Scroll()
  126.     Percent1.Percent = HScroll1.Value
  127. End Sub
  128.